home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / SCRAMBLE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  3.9 KB  |  100 lines
  1. 1000   ' SCRAMBLE WORD GAME.   VERSION 3/11/82
  2. 1010  CLS:KEY OFF:LOCATE 5,25:PRINT "S C R A M B L E D   E G G S"
  3. 1020  DEF SEG:POKE 106,0
  4. 1030  LOCATE 9,26:PRINT "DO YOU WISH INSTRUCTIONS? ";
  5. 1040  C$=INKEY$:RANDOMIZE RND*1000:IF C$="" THEN 1040 ELSE IF C$<>"Y" AND C$<>"y"     THEN 1150
  6. 1050  CLS:PRINT"THE OBJECT OF THIS GAME IS TO TRY AND UNSCRAMBLE A FIVE LETTER WORD AS QUICKLY AS POSSIBLE.  THE FASTER YOU ARE THE MORE POINTS YOU SCORE. YOU HAVE ONLY 60 SECONDS FOR EACH WORD."
  7. 1060  PRINT:PRINT"FOR EXAMPLE:"
  8. 1070  PRINT"              T M C H A     WOULD BE     M A T C H "
  9. 1080  PRINT"                               OR"
  10. 1090  PRINT"              N L A B K     WOULD BE     B L A N K "
  11. 1100  PRINT:PRINT "THE COMPUTER CONTROLS THE ENTIRE GAME.   YOU   D O   N O T   HIT ENTER - - - MERELY TYPE IN THE WORD YOU BELIEVE TO BE CORRECT."
  12. 1110  PRINT:PRINT:PRINT:INPUT"PRESS ENTER TO TURN THE PAGE";E$
  13. 1120  CLS:PRINT"IF YOU MAKE A MISTAKE TYPING - - - FINISH THE WORD - - - YOU MAYNOT BACKSPACE."
  14. 1130  PRINT:PRINT"SOME WORDS MAY BE USED MORE THAN ONCE AND SOME MAY EVEN APPEAR  IN CORRECT ORDER.  EACH GAME CONSISTS OF TEN WORDS FOR EACH     PLAYER."
  15. 1140  PRINT:PRINT"HAVE FUN!":PRINT:PRINT:PRINT:INPUT"PUSH ENTER TO BEGIN";G$
  16. 1150  CLS
  17. 1160  INPUT "1ST PLAYERS NAME";N$(1)
  18. 1170  INPUT "2ND PLAYERS NAME";N$(2)
  19. 1180  X=0:CLS:PRINT N$(1);"'S TURN"
  20. 1190   FOR O=1 TO 500:NEXT O:  GOTO 1220
  21. 1200  X=0:CLS:PRINT N$(2); "'S TURN"
  22. 1210   FOR O = 1 TO 500:  NEXT O
  23. 1220  RESTORE
  24. 1230  Q=INT(210*RND)+1
  25. 1240  FOR F=1 TO Q
  26. 1250  READ A$
  27. 1260  IF A$= "END" THEN 1220
  28. 1270  NEXT F
  29. 1280  A$(1) = MID$ (A$,1,1)
  30. 1290  A$(2) = MID$ (A$,2,1)
  31. 1300  A$(3) = MID$ (A$,3,1)
  32. 1310  A$(4) = MID$ (A$,4,1)
  33. 1320  A$(5) = MID$ (A$,5,1)
  34. 1330  FOR I = 1 TO 5
  35. 1340  R=INT(5*RND)+1
  36. 1350  IF A$(R) ="0" THEN 1340
  37. 1360  B$(I) = A$(R)
  38. 1370  A$(R) = "0"
  39. 1380  NEXT I
  40. 1390  T1$=MID$(TIME$,2,7)
  41. 1400  T$=MID$(TIME$,2,7):IF T$=T1$ THEN 1400
  42. 1410  LOCATE 5,24:COLOR 15:FOR I = 1 TO 5
  43. 1420  PRINT B$(I);"     ";
  44. 1430  NEXT I:COLOR 7
  45. 1440  V$=INKEY$:IF V$<>"" THEN 1440
  46. 1450  GOSUB 1890 : V$=I$
  47. 1460  LOCATE 9,28:PRINT V$;
  48. 1470  GOSUB 1890 : W$=I$
  49. 1480  LOCATE 9,32:PRINT W$;
  50. 1490  GOSUB 1890 : X$=I$
  51. 1500  LOCATE 9,36:PRINT X$;
  52. 1510  GOSUB 1890 : Y$=I$
  53. 1520  LOCATE 9,40:PRINT Y$;
  54. 1530  GOSUB 1890 : Z$=I$
  55. 1540  LOCATE 9,44:PRINT Z$;
  56. 1550  IF A$ = (V$+W$+X$+Y$+Z$) THEN 1570
  57. 1560  LOCATE 9,20:PRINT TAB(60);:GOTO 1440
  58. 1570  S=S+1: IF S/2 = INT (S/2) THEN 1640
  59. 1580  P1=P1+G
  60. 1590  PRINT:PRINT:PRINT:PRINT TAB(6) "CORRECT!":PRINT
  61. 1600  PRINT"YOU SCORE ";G; "POINTS"
  62. 1610  LOCATE 22,30:PRINT "ROUND";INT(S/2)+1:PRINT
  63. 1620  PRINT TAB(20) N$(1);P1;"       ";N$(2);P2;
  64. 1630  FOR V=1 TO 4000: NEXT V: GOTO 1200
  65. 1640  P2=P2+G
  66. 1650  PRINT:PRINT:PRINT:PRINT TAB(6) "CORRECT!":PRINT
  67. 1660  PRINT "YOU SCORE";G;"POINTS
  68. 1670  LOCATE 22,30:PRINT "ROUND";S/2:PRINT
  69. 1680  PRINT TAB(20) N$(1);P1;"        ";N$(2);P2;
  70. 1690  FOR V=1 TO 4000:NEXT V
  71. 1700  IF S=20 THEN 1710 ELSE 1180
  72. 1710  PRINT:PRINT "GAME OVER";:GOTO 1940
  73. 1720  PRINT:PRINT "   OUT OF TIME":PRINT:PRINT"THE WORD WAS ";A$
  74. 1730  S=S+1:IF S/2=INT(S/2) THEN 1670 ELSE 1610
  75. 1740  T$=MID$(TIME$,2,7):IF T1$<>T$ THEN T1$=T$:X=X+1:G=61-X
  76. 1750  LOCATE 9,65:PRINT G;
  77. 1760  IF G<=0 THEN 1720
  78. 1770  RETURN
  79. 1780  DATA LEASE,FIRST,MONTH,MONEY,TOUCH,BRAND,TRULY,VALUE,RANGE,MUSIC,LEVEL,METER,POINT,TOTAL,PANEL,AMPLE,SOUND,THERE,THREE,ENJOY,BUILT,SHORT,COULD,CLEAN,PROOF,FLOOR,INDEX,PRICE,BOARD
  80. 1790  DATA CABLE,CLOCK,TABLE,SMOKE,NOISE,LOWER,BASIC,AUDIO,FRONT,WHILE,RATIO,IMAGE
  81. 1800  DATA FRONT,OTHER,IDEAL,STORE,POWER,WOMEN,TOTAL,MAGIC,GLOBE,MODEL,PRINT,TOWER,COVER,EIGHT,GLIDE,WATER,TODAY,PIZZA,METAL,SHELF,DRIVE,CLASS,GREAT,LIGHT,SCALE,STYLE,BREAD,DRINK,PHONE
  82. 1810  DATA SHAPE,GREEN,GLASS,SAUCE,SLICE,HEART,LARGE,STEAM,ONION,STACK
  83. 1820  DATA CREAM,CRUST,SALAD,EXTRA,ORDER,BACON,BLACK,OLIVE,SMALL,SPEAR,SCREW,SEVEN,DOUGH,FLOAT,HEARD,SOLID,HEAVY,CRISP,PINCH,PUNCH,SENSE,SOLID,STAND,EVERY,SHOCK,VINYL,MAPLE,WOVEN,GRAIN
  84. 1830  DATA SKATE,FORCE,COLOR,PIECE,ANGLE,PITCH,WORTH,ABOUT,WEIGH,CHECK,HANDY,CANDY
  85. 1840  DATA SWEEP,PATCH,WAGON,TRUCK,POUND,TOWEL,PAPER,QUIET,SPACE,RADIO,THESE,CARRY,ALONG,READY,THERE,WHERE,ALARM,PAUSE,TIMER,CLOTH,SHACK,STICK,ERASE,ALBUM,START,LAPEL,WHITE,DELAY
  86. 1850  DATA EJECT,SLIDE,IDEAL,MINUS,GRAPH,FLOAT,QUICK,BLANK,SUITE,NYLON
  87. 1860  DATA PROBE,RELAY,SOLID,SWEET,SLOPE,SLEEP,COUNT,LOGIC,MOUNT,DECAL,SCALE,ORDER,TORCH,SPADE,SCOPE,LABEL,ROUND,WAFER,CARRY,LOWER,TEACH,AGAIN,MOTOR,MAJOR,LEARN,ORGAN,GRIPE,EAGLE
  88. 1870  DATA GAUGE,MATCH,AWARE,TRUNK,CLAMP,OTHER,WOULD,LIMIT,SWING,WRIST
  89. 1880  DATA END
  90. 1890  I$=INKEY$:IF I$="" THEN GOSUB 1740:GOTO 1890
  91. 1900  IF LEN(I$) >1 THEN 1890
  92. 1910  I=ASC(I$):IF I >96 AND I <123 THEN I=I-32
  93. 1920  I$=CHR$(I)
  94. 1930  RETURN
  95. 1940  FOR I=0 TO 2000 :NEXT I :LOCATE 25,27,0
  96. 1950  PRINT "Would you like another game?";
  97. 1960  I$=INKEY$ :IF I$="" THEN 1960
  98. 1970  IF I$="Y" OR I$="y" THEN 1000
  99. 1980  IF I$="N" OR I$="n" THEN CHAIN "MENU",1000 ELSE 1960
  100.